<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>23</cardCount>
<cardID>39297</cardID>
<listID>10491</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on OpenStackset numberFormat to "0.#"global holdlevelget userlevelput It into holdlevelset userlevel to 3get the freesize of this stackif it <> 0 then domenu "Compact Stack"get the size of this stackput it into Big1divide Big1 by 1024put Big1 into field 2 of card id 39297get field 6 of card id 39297if it is empty then ask "Please type in your full name:"put it into field 6 of card id 39297get field 6 of card id 39297if it is empty then domenu "Quit Hypercard"create menu "Utilities"put "Import,Export,Merge,-,Scan" into menu "Utilities" with menuMsg "Import,Export,,,Look"put "First,Prev,Next,Last,-,Find...,Message" into menu "Go"put "1,2,3,4,,F,M" into fileMenCmd1repeat with x = 1 to number of items of fileMenCmd1set commandChar of MenuItem x of menu "Go" to item x of fileMenCmd1end repeatput "Cut,Copy,Paste Text,-,New Card" into menu "Edit"put "X,C,V,,N" into fileMenCmd2repeat with x = 1 to number of items of fileMenCmd2set commandChar of MenuItem x of menu "Edit" to item x of fileMenCmd2end repeatput "Open Stack...,Save a Copy...,-,Compact Stack,Protect Stack...,-,Page Setup...,Print Card,Print Report...,Quit" into menu "File"put "O,,,,,,,P,,Q" into fileMenCmd3repeat with x = 1 to number of items of fileMenCmd3set commandChar of MenuItem x of menu "File" to item x of fileMenCmd3end repeatset menuMsg of MenuItem 10 of menu "File" to "Quit"create menu "Sort by"put "Name,Formula,Where it is,Date acquired,CAS #,Hazard" into menu "Sort by" with menuMsg "Shuffle,DS1,DS2,DS3,DS4,DS5"delete menu "Font"delete menu "Style"delete menu "Tools"put "About Chem Inventory..." into menuItem 1 of menu 1 with menuMsg Danend OpenStackon Danshow card field "About" of card id 39297show card button id 9 of card id 39297show card button id 10 of card id 39297end Danon Lookshow all cardsend Lookon Importask "File to import text from?"if it is empty then exit Importput it into readFromopen file readFromrepeat foreverdoMenu "Last"doMenu "New Card"repeat with fieldCount=1 to the number of fieldsread from file readFrom until tabif it is empty then --end of file reachedif fieldCount=1 then doMenu "Delete Card"close file readFromexit Importend ifput it into field fieldCountend repeatend repeatend Importon Exportask "Name of file to write to?"if it is empty then exit Exportput it into writeToopen file writeTogo to second cardrepeat for number of cardsrepeat with fieldCount=1 to the number of fieldswrite field fieldCount to file writeTowrite tab to file writeToend repeatgo to next cardend repeatclose file writeToend Exporton Shuffle--This code is copyright 1991 by Dr. Dan Swartling--Unauthorized use will be procecuted to the fullest extent--of the law.answer "Sort all cards of this stack according to:" ¬with "Cmpnd Name" or "Cancel"if it is "Cmpnd Name" thenset lockscreen to trueset lockrecent to truerepeat for number of cardsadvanceCursorrepeat with Pt=1 to the length of background field "Compound Name"advanceCursorput character Pt of background field "Compound Name" into tempCharput the charToNum of tempChar into Codeif Code is 44 thensubtract 8 from Codeput the numToChar of Code into tempCharput tempChar into character Pt of background field "Compound Name"end ifif (Code >=65) and (Code<=90) thenput "," before character pt of background field "Compound Name"exit repeatend ifadvanceCursorend repeatgo to next cardend repeatsort by second item of field "Compound Name"repeat for number of cardsrepeat with Pt=1 to the length of background field "Compound Name"advanceCursorput character Pt of background field "Compound Name" into tempCharput the charToNum of tempChar into Codeif Code = 44 thendelete character pt of background field "Compound Name"advanceCursorexit repeatend ifif Code is 36 thenadd 8 to Codeput the numToChar of Code into tempCharput tempChar into character Pt of background¬field "Compound Name"end ifend repeatgo to next cardend repeatadvanceCursorset lockscreen to falseset lockrecent to falseelse if it is "Cancel" thenexit Shuffleend ifend Shuffleon DS1sort by background field "Formula"end DS1on DS2sort by background field "Where is it"end DS2on DS3sort by background field "DateAcquired"end DS3on DS4sort by background field "CAS#"end DS4on DS5sort by background field "Hazard"end DS5on AnimCurs CursType, MaxCountglobal AnimCursNumberadd 1 to AnimCursNumberset the cursor to CursType & AnimCursNumberif AnimCursNumber > MaxCount then put 1 into AnimCursNumberend AnimCurson advanceCursorglobal cursCountwait 1 tickset cursor to "Earth" & cursCountif cursCount > 6then put 1 into cursCountelse add 1 to cursCountend advanceCursoron Quitflash three, timesdomenu "Quit HyperCard"end Quiton CloseStackglobal holdlevelset userlevel to 5reset menubarend CloseStack</script>
